Página 1

---
title: "Alumnado UCM"
author: "Pedro de la Muela"
date: "`r Sys.Date()`"
output: 
  flexdashboard::flex_dashboard:
    source_code: embed
    logo: logos/woman.png
    favicon: logo/ucm:favicon.png
    social: [ "twitter", "facebook", "menu"]
    navbar:
      - { title: "Ref markdown basic", href: "https://www.markdownguide.org/basic-syntax/", align: left }

---
```{r setup, include=FALSE}
library(flexdashboard)
library(readr)
library(dplyr)
library(ggplot2)
library(DT)
library(plotly)
library(kableExtra)

df <- read_delim("datos_tratados.csv", delim = ";")
df$CURSO <- factor(df$CURSO)
df$CENTRO <- factor(df$CENTRO)


```

# Página 1
## Columna 1
### Tabla estática {data-height=300}
A veces, si tenemos pocos datos no es necesario incluir una tabla dinámica. Para incluir una tabla estática, usamos una instrucción **knitr::kable(dataframe)** dentro del bloque de código R que dibuja la tabla:

```r
grouped_data <- df %>%
                group_by(CURSO) %>%
                select(CURSO, TOTAL_HOMBRES, TOTAL_MUJERES) %>%
                summarise(across(where(is.numeric), sum))
knitr::kable(grouped_data)
```

### Tabla estática {data-width=300}
```{r}
grouped_data <- df %>%
                group_by(CURSO) %>%
                select(CURSO, TOTAL_HOMBRES, TOTAL_MUJERES) %>%
                summarise(across(where(is.numeric), sum))
knitr::kable(grouped_data) %>% kable_styling()
```

## Columna 2

### Tabla dinámica con DT {data-height=300}
Para las tablas dinámicas usando DT escribimos el siguiente bloque de código R:

```r
grouped_data <- df %>%
                group_by(CURSO) %>%
                select(CURSO, TOTAL_HOMBRES, TOTAL_MUJERES) %>%
                summarise(across(where(is.numeric), sum))
DT::datatable(grouped_data, options = list( pageLength = 15))
```

[Sintaxis Markdown para incluir código R entre el texto](https://www.markdownguide.org/extended-syntax/#syntax-highlighting)

### Tabla dinámica
```{r}
grouped_data <- df %>%
                group_by(CURSO) %>%
                select(CURSO, TOTAL_HOMBRES, TOTAL_MUJERES) %>%
                summarise(across(where(is.numeric), sum))
DT::datatable(grouped_data, options = list( pageLength = 15))
```